home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ASTRONOM / 3146A.ZIP / HGO.BAT < prev    next >
DOS Batch File  |  1992-02-19  |  1KB  |  117 lines
  1. ECHO OFF
  2. CLS
  3. HDWARE
  4. KEYPRESS
  5. :START
  6. CLS
  7. MENU
  8. :LOOP
  9. KEYPRESS
  10. IF ERRORLEVEL 105 GOTO LOOP
  11. IF ERRORLEVEL 104 GOTO H
  12. IF ERRORLEVEL 103 GOTO G
  13. IF ERRORLEVEL 102 GOTO F
  14. IF ERRORLEVEL 101 GOTO E
  15. IF ERRORLEVEL 100 GOTO D
  16. IF ERRORLEVEL 99 GOTO C
  17. IF ERRORLEVEL 98 GOTO B
  18. IF ERRORLEVEL 97 GOTO A
  19. IF ERRORLEVEL 72 GOTO H
  20. IF ERRORLEVEL 71 GOTO G
  21. IF ERRORLEVEL 70 GOTO F
  22. IF ERRORLEVEL 69 GOTO E
  23. IF ERRORLEVEL 68 GOTO D
  24. IF ERRORLEVEL 67 GOTO C
  25. IF ERRORLEVEL 66 GOTO B
  26. IF ERRORLEVEL 65 GOTO A
  27. IF ERRORLEVEL 58 GOTO LOOP
  28. IF ERRORLEVEL 57 GOTO NINE
  29. IF ERRORLEVEL 56 GOTO EIGHT
  30. IF ERRORLEVEL 55 GOTO SEVEN
  31. IF ERRORLEVEL 54 GOTO SIX
  32. IF ERRORLEVEL 53 GOTO FIVE
  33. IF ERRORLEVEL 52 GOTO FOUR
  34. IF ERRORLEVEL 51 GOTO THREE
  35. IF ERRORLEVEL 50 GOTO TWO
  36. IF ERRORLEVEL 49 GOTO ONE
  37. IF ERRORLEVEL 48 GOTO QUIT
  38. IF NOT ERRORLEVEL 48 GOTO LOOP
  39. :TWO
  40. CLS
  41. PLANET
  42. :SA
  43. KEYPRESS
  44. IF NOT ERRORLEVEL 1 GOTO SA
  45. GOTO START
  46. :ONE
  47. CLS
  48. REGISTRN
  49. GOTO SA
  50. :THREE
  51. CLS
  52. TRACK
  53. GOTO SA
  54. :FOUR
  55. CLS
  56. COMET
  57. GOTO SA
  58. :FIVE
  59. CLS
  60. COMETRAK
  61. GOTO SA
  62. :SIX
  63. CLS
  64. ECLIPSE
  65. GOTO SA
  66. :SEVEN
  67. CLS
  68. CONJUNCT
  69. GOTO SA
  70. :EIGHT
  71. CLS
  72. OBSMENU
  73. KEYPRESS
  74. IF ERRORLEVEL 65 GOTO START
  75. IF ERRORLEVEL 97 GOTO START
  76. CLS
  77. OBSDIARY
  78. KEYPRESS
  79. GOTO EIGHT
  80. :NINE
  81. CLS
  82. SOLUNCAL
  83. GOTO SA
  84. :A
  85. CLS
  86. PLTARIUM
  87. GOTO SA
  88. :B
  89. CLS
  90. MISCELNS
  91. GOTO SA
  92. :C
  93. CLS
  94. ASTRQUIZ
  95. GOTO SA
  96. :D
  97. CLS
  98. BINARY
  99. GOTO SA
  100. :E
  101. CLS
  102. BACKMTTR
  103. GOTO SA
  104. :F
  105. CLS
  106. TOOLBOX
  107. GOTO SA
  108. :G
  109. CLS
  110. EXPANSN
  111. GOTO SA
  112. :H
  113. CLS
  114. ALARMCLK
  115. GOTO SA
  116. :QUIT
  117.